home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / jumpto / jumpto.m64 < prev    next >
Text File  |  1995-08-08  |  1KB  |  31 lines
  1.  
  2. ; jumpto code for DEC Alpha
  3.  
  4.         $routine _jumpToMethod -
  5.                 kind=stack
  6.  
  7.         $code_section
  8.  
  9.         $begin_epilogue                         ; We need our own epilogue
  10.         mov     r16,r27                         ; Set PDSC of jumpto routine
  11.         ldq     r0,8(r16)                       ; Get entry addr of jumto rtn
  12.  
  13.         ldq     r1,^x10(fp)                     ; Get fp of previous routine
  14.         ldq     r25,^x28(r1)                    ; Restore arg count
  15.         ldq     r16,^x30(r1)                    ; Restore r16 - param 1
  16.         ldq     r17,^x38(r1)                    ; Restore r17 - param 2
  17.         ldq     r18,^x40(r1)                    ; Restore r18 - param 3
  18.         ldq     r19,^x48(r1)                    ; Restore r19 - param 4
  19.         ldq     r20,^x50(r1)                    ; Restore r20 - param 5
  20.         ldq     r21,^x58(r1)                    ; Restore r21 - param 6
  21.  
  22.         ldq     r26,^x8(r1)                     ; Set rtn to callers caller
  23.         ldq     r2,^x10(r1)                     ; Restore r2
  24.         ldq     fp,^x18(r1)                     ; Restore fp
  25.         lda     sp,^x60(r1)                     ; Restore sp
  26.         ret     r31,(r0)                        ; Return to jumto function
  27.  
  28.         $end_routine _jumpToMethod
  29.         .end
  30.  
  31.